home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / charsets / nrc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-03  |  3.5 KB  |  89 lines
  1. /*
  2.   Program nrc.c.  Use with a DEC VT320 International Model terminal or
  3.   emulator, such as MS-DOS Kermit, to display 7-bit, 94-character "National
  4.   Replacement Character" sets (NRCs).  These are similar to, but not always
  5.   the same as, ISO 646 national character sets.  In particular, the designating
  6.   sequences might differ, some characters might differ, and some NRCs are
  7.   found in DEC terminals that have no ISO 646 equivalent at all (e.g. Swiss).
  8.  
  9.   Usage: Just run it.  It sends a character set table to stdout.
  10.   Check the appearance of the table against the DEC terminal manuals,
  11.   ISO 646 standards, etc.
  12.  
  13.   Compile with -DOTHERS if you also want to check DEC special, supplemental,
  14.   and technical sets.  Only the ISO 646 special characters are shown, so this
  15.   is useful only for checking the designating sequence, rather than the
  16.   contents of these character sets.
  17.  
  18.   Author: F. da Cruz, Columbia University, Jan 1993
  19. */
  20. char * s = " #   @   [   \\   ]   ^   _   `   {   |   }   ~";
  21. struct cset {
  22.     char *name;
  23.     char *designator;
  24.   } x[] = {
  25. " ASCII",            "(B",        /* ISO 646 and DEC */
  26. #ifdef OTHERS
  27. " Alt ROM",          "(1",        /* DEC only */
  28. #endif  /* OTHERS */
  29. " British",          "(A",        /* ISO 646 and DEC */
  30. "Cuban",             "(!@",        /* ISO only */
  31. " Dutch",            "(4",        /* ISO 646 and DEC */
  32. " Finnish",          "(C",        /* ISO 646 and DEC */
  33. " Finnish",          "(5",        /* Alternate form, DEC only */
  34. " Fr-Canadian",      "(9",        /* DEC only */
  35. " Fr-Canadian",      "(Q",        /* Alternate form, DEC only */
  36. " French",           "(f",        /* ISO 646 only */
  37. " French",           "(R",        /* DEC only */
  38. " German",           "(K",        /* ISO 646 and DEC */
  39. " Hungarian",        "(i",        /* ISO 646 only */
  40. " Italian",          "(Y",        /* ISO 646 and DEC */
  41. #ifdef COMMENT
  42. /* No standard, no DEC NRC, obsolete */
  43. " Icelandic",        "(?",        /* Designating sequence unknown. */
  44. #endif /* COMMENT */
  45. " Japanese Roman",   "(J",        /* ISO 646 */
  46. " Norway",           "(`",        /* ISO 646 and DEC */
  47. " Norway/Denmark",   "(E",        /* ISO 646 and DEC */
  48. " Norway/Denmark",   "(6",        /* Alternate form, DEC only  */
  49. " Portuguese",       "(g",        /* ISO 646 1984 (126=tilde)  */
  50. " Portuguese",       "(L",        /* ISO 646 1976 (126=degree) */
  51. "Portuguese",        "(%6",        /* Alternate form, DEC only */
  52. " Serb/Slovenian",   "(z",        /* ISO */
  53. " Spanish",          "(Z",        /* ISO 646 1976 and DEC */
  54. #ifdef COMMENT
  55. /* This one is completely different from the 1976 version */
  56. " Spanish",          "(h",        /* ISO 646 1984 */
  57. #endif /* COMMENT */
  58. #ifdef OTHERS
  59. " Special Graphics", "(0",        /* DEC only */
  60. " Special Graphics", "(2",        /* Alternate form, DEC only */
  61. "Suppl Graphics",    "(%5",        /* DEC only */
  62. #endif /* OTHERS */
  63. " Swedish/programs", "(G",        /* ISO 646 only */
  64. " Swedish/names",    "(H",        /* ISO 646 and DEC */
  65. " Swedish/names",    "(7",        /* DEC only */
  66. " Swiss",            "(="        /* DEC only */
  67. #ifdef OTHERS
  68. ," Technical",        "(>"        /* DEC only */
  69. #endif /* OTHERS */
  70. };
  71. int n = (sizeof(x) / sizeof(struct cset));
  72.  
  73. main() {
  74.     int i;
  75.     printf(
  76. "35  64  91  92  93  94  95  96  123 124 125 126  Designator  Name\n");
  77.     printf("%c[42h",'\33');        /* Enable NRCs */
  78.     for (i = 0; i < n; i++) {        /* Print special chars from each set */
  79.     printf("%c%s%s %c%s   \"ESC %s\"   %s\n",
  80.            '\33',            /* Escape */
  81.            x[i].designator,        /* Switch to set i */
  82.            s,            /* Print special chars */
  83.            '\33',            /* Escape */           
  84.            x[0].designator,        /* Back to ASCII for legend */
  85.            x[i].designator,        /* Show designator */
  86.            x[i].name);        /* Print name */
  87.     }
  88. }
  89.